home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / Guitar Tuner / Wintun16.dxr / 00037.ls < prev    next >
Encoding:
Text File  |  1997-04-24  |  580 b   |  20 lines
  1. on setTuning
  2.   if field "tuning selection" = "standard" then
  3.     set the visible of sprite 12 to 1
  4.     set the visible of sprite 13 to 0
  5.     set the visible of sprite 14 to 0
  6.   else
  7.     if field "tuning selection" = "Drop D" then
  8.       set the visible of sprite 14 to 1
  9.       set the visible of sprite 12 to 0
  10.       set the visible of sprite 13 to 0
  11.     else
  12.       if field "tuning selection" = "half step down" then
  13.         set the visible of sprite 13 to 1
  14.         set the visible of sprite 12 to 0
  15.         set the visible of sprite 14 to 0
  16.       end if
  17.     end if
  18.   end if
  19. end
  20.